﻿Public Class frmOptions



    Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
        Dim fldBrowser As New FolderBrowserDialog
        fldBrowser.ShowDialog()
        txtFolderPath.Text = fldBrowser.SelectedPath
        My.Settings.savepath = fldBrowser.SelectedPath
        My.Settings.Save()
    End Sub

    Private Sub frmOptions_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        txtFolderPath.Text = My.Settings.savepath
    End Sub
End Class